ベクトル対応Switch関数

通常のswitch関数

標準のbaseパッケージのswitch関数は入力値は１つのみで，ifelse関数のようにベクトルには対応していない．

x <- "a"
switch(x,
       "a" = 1, 
       "b" = 2, 
       "c" = 3, 
       "4" = 4)

## [1] 1

ベクトル対応版

hutilsパッケージにあるSwitch関数はifelse関数と同様に入力値がベクトルに対応している． DEFAULTはどれにもマッチしなかった場合のデフォルト値．

library(hutils)
x <- c("a", "b", "c", "a")
Switch(x,
       "a" = 1, 
       "b" = 2, 
       "c" = 3, 
       "4" = 4, 
       DEFAULT = 0)

## [1] 1 2 3 1